Calculate_ICF_preconditioner Function

public function Calculate_ICF_preconditioner(A, omega, alpha) result(L)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in), DIMENSION(:, :) :: A
real(kind=dp), intent(in) :: omega
real(kind=dp), intent(in) :: alpha

Return Value real(kind=dp), DIMENSION(SIZE(A, 1), SIZE(A, 2))


Calls

proc~~calculate_icf_preconditioner~~CallsGraph proc~calculate_icf_preconditioner Calculate_ICF_preconditioner proc~incomplete_cholesky_decomposition Incomplete_Cholesky_decomposition proc~calculate_icf_preconditioner->proc~incomplete_cholesky_decomposition proc~identity_n Identity_n proc~incomplete_cholesky_decomposition->proc~identity_n

Source Code

    FUNCTION Calculate_ICF_preconditioner(A, omega, alpha) RESULT(L)
        REAL(dp), DIMENSION(:, :), INTENT(IN) :: A
        REAL(dp), INTENT(IN) :: omega, alpha
        REAL(dp), DIMENSION(SIZE(A, 1), SIZE(A, 2)) :: L
        INTEGER :: N

        N = SIZE(A, 1)

        L = 0.d0

        CALL Incomplete_Cholesky_decomposition(A, L)

        L = alpha / omega * L

    END FUNCTION Calculate_ICF_preconditioner